home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / misc / debug.c < prev    next >
C/C++ Source or Header  |  1992-10-05  |  217b  |  12 lines
  1. #include "scheme.h"
  2.  
  3. static Object P_Debug (on) Object on; {
  4.     Check_Type (on, T_Boolean);
  5.     GC_Debug = EQ(on, True);
  6.     return Void;
  7. }
  8.  
  9. init_lib_debug () {
  10.     Define_Primitive (P_Debug, "debug", 1, 1, EVAL);
  11. }
  12.